home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_contents.asp < prev    next >
Encoding:
Text File  |  1999-03-30  |  2.7 KB  |  97 lines
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  2.  
  3. <html dir=ltr><HEAD><TITLE>Contents</TITLE>
  4. <META NAME="ROBOTS" CONTENT="NOINDEX">
  5. <META HTTP-EQUIV="Content-Type" content="text/html; charset=Windows-1252">
  6. </HEAD>
  7.  
  8. <BODY bgcolor="black">
  9. <SCRIPT LANGUAGE="VBScript">
  10. <!--
  11. Function Dec(strHex)
  12.     Dec = InStr("123456789ABCDEF", UCase(Left(strHex,1))) * 16
  13.     Dec = Dec + InStr("123456789ABCDEF", UCase(Mid(strHex,2,1)))
  14. End Function
  15.  
  16. Function FixHex(ByVal strURL)
  17.     Dim x
  18.     FixHex = ""    
  19.     x = InStr(1,strURL,"%")
  20.     Do While (x > 0)
  21.         FixHex = FixHex & Left(strURL,x-1)
  22.         FixHex = FixHex & Chr(Dec(Mid(strURL,x+1)))
  23.         strURL = Mid(strURL,x+3)
  24.         x = InStr(1,strURL,"%")
  25.     Loop
  26.     FixHex = FixHex & strURL
  27. End Function
  28.  
  29. Sub TOCSynch_Click()
  30. MyUrl=parent.frames(2).location
  31. x=InStr(MyUrl,"/iishelp")
  32. y=Len(MyUrl)
  33. NewUrl=FixHex(Right(MyUrl,y-(x-1)))
  34. call hhctrl.syncURL(NewUrl)
  35. call hhctrl.syncURL(NewUrl)
  36. end sub
  37.  
  38. Sub Window_OnLoad()
  39. MyUrl=parent.frames(2).location
  40. x=InStr(MyUrl,"/iishelp")
  41. y=Len(MyUrl)
  42. NewUrl=FixHex(Right(MyUrl,y-(x-1)))
  43. call hhctrl.syncURL(NewUrl)
  44. call hhctrl.syncURL(NewUrl)
  45. end sub
  46.  
  47.  
  48. Sub TOCPrint_Click()
  49. MyUrl=parent.frames(2).location
  50. x=InStr(MyUrl,"/iishelp")
  51. y=Len(MyUrl)
  52. NewUrl=FixHex(Right(MyUrl,y-(x-1)))
  53. hhctrl.syncURL(NewUrl)
  54. hhctrl.syncURL(NewUrl)
  55. hhctrl.Print()
  56. End Sub
  57. -->
  58. </SCRIPT>
  59.  
  60. <SPAN STYLE="position:  relative; left: 0; top: 4">
  61. <IMG SRC="Cont.gif" border="0" alt="Contents">
  62. </Span>
  63.  
  64. <SPAN STYLE="position:  relative; left: -4; top: 4">
  65. <A HREF="Index.asp"><IMG SRC="NoIndex.gif" border="0" alt="Index"></A>
  66. </Span>
  67.  
  68. <SPAN STYLE="position:  relative; left: -8; top: 4">
  69. <A HREF="Search.asp"><IMG SRC="NoSearch.gif" border="0"  ALT="Search"></A>
  70. </Span>
  71.  
  72. <table width="262" height="31" border="0" cellspacing=2 bgcolor="white" bordercolor="white">
  73. <TR><TD width="208">
  74.  
  75. </TD>
  76. <TD align="right">
  77. <SPAN STYLE="position:  relative; left: 1; top: 0">
  78. <a href="#Ptoc" onclick="TOCPrint_Click()"><img src="print.gif" border="0" alt="Print a topic or node from the TOC"></a><a name="Ptoc"></a>
  79. </SPAN>
  80. </td>
  81. <td align="left">
  82. <a href="#Stoc" onclick="TOCSynch_Click()"><img src="synch.gif" border="0" alt="Synchronize the TOC with the content pane"></a><a name="Stoc"></a>
  83. </td></tr></table>
  84.  
  85. <div style="font-family:verdana;font-size:7.5pt">
  86. <OBJECT id=hhctrl type="application/x-oleobject"
  87.         classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"
  88.         codebase="../../common/i386.cab#version=4,73,8412,0"
  89.         width="262"
  90.         height="74%">
  91.     <PARAM name="Command" value="Contents">
  92.     <PARAM name="flags" value="0x0,0x35,0xFFFFFFFF">
  93.     <PARAM name="Item1" value="cohhc.hhc">
  94. </OBJECT>
  95. </div>
  96. </BODY>
  97. </HTML>